home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Bus / S / Solve.sit / solve / loan next >
Encoding:
Text File  |  1987-04-23  |  270 b   |  7 lines  |  [TEXT/SOLV]
  1. precision = 2
  2. monthly_interest = yearly_interest / 12.0;
  3. months = years * 12.0;
  4. payments = principle / annuity( monthly_interest / 100.0, months);
  5. costOfLoan = payments * months - principle;
  6. costPerPayment = costOfLoan / months;
  7. principlePerPayment = principle / months;